perm filename DIF[2,LCS] blob
sn#305839 filedate 1977-09-22 generic text, type T, neo UTF8
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 1,1
**** File 1) SC3.F4[2,LCS], Page 1 line 1
1) COMMENT ⊗ VALID 00004 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 C SCORB.F4 2ND HALF OF SCORE.
1) C00010 00003 C ***** SORTER *************************
1) C00022 00004 752 FORMAT(1X15A5)
1) C00050 ENDMK
1) C⊗;
1) C SCORB.F4 2ND HALF OF SCORE.
**** File 2) SC3.F4[SCR,LCS], Page 1 line 1
2) C SCORB.F4 2ND HALF OF SCORE.
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 4
1) 1 ,LN,ITYP,TPALN,JED /NAMES/NA(100),LETRS(27),JNAM(27)
1) COMMON/VV/LIMIT, V(1) /A/ ROFF(27),NP(27),PCH(27,32),
**** File 2) SC3.F4[SCR,LCS], Page 1 line 4
2) 1 ,LN,ITYP,TPALN,JED
2) COMMON/VV/LIMIT, V(1) /A/ ROFF(27),NP(27),PCH(27,32),
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 10
1) 1,COFF1(27),COFF2(27),RREST(27),AA(100)
1) C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
**** File 2) SC3.F4[SCR,LCS], Page 1 line 10
2) 1,COFF1(27),COFF2(27),RREST(27)
2) C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 28
1) 1 ,(VX5,VX(5)),(VX,IOUT),(IFM3,IFM(3)),(AA,NA)
1) 1 ,(IT,INP(28)),(V,IV),(PLAY,ISCA(7)),(IFM2,IFM(2))
**** File 2) SC3.F4[SCR,LCS], Page 1 line 28
2) 1 ,(VX5,VX(5)),(VX,IOUT),(IFM3,IFM(3))
2) 1 ,(IT,INP(28)),(V,IV),(PLAY,ISCA(7)),(IFM2,IFM(2))
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 44
1) CC 1 ,RCD/"575326135500/,
1) C ↑↑↑↑↑↑↑↑↑↑↑ "←-1;" FOR RCDFLG.
1) DO 9338 K=1,100,2
1) 9338 NA(K)=0
1) ITOT=1
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 2,1
1) PR=0
1) DO 9337 K=1,27
1) JNAM(K)=0
1) COFF1(K)=0
1) 9337 RREST(K)=0
1) C ZEROS NAME CHANGE, CUTOFF AND RAND REST STORAGE
1) 2337 T=0
**** File 2) SC3.F4[SCR,LCS], Page 1 line 44
2) 1 ,RCD/"575326135500/
2) C ↑↑↑↑↑↑↑↑↑↑↑ "←-1;" FOR RCDFLG.
2) PR=0
2) DO 9337 K=1,27
2) COFF1(K)=0
2) 9337 RREST(K)=0
2) C ZEROS CUTOFF AND RAND REST STORAGE
2) 2337 T=0
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 61
1) DATA ENFI /25H(' INPUT ON "TYPED" '/)/
1) TYPE ENFI
1) C PUTS AWAY TYPED IN DATA. TO REUSE, EDIT FILE "TYPED".
1) 23371 IF(SOS)WRITE(JOUT,902)
**** File 2) SC3.F4[SCR,LCS], Page 1 line 57
2) DATA ENFI /25H(' INPUT ON FOR21.DAT '/)/
2) TYPE ENFI
2) C PUTS AWAY TYPED IN DATA. TO REUSE, EDIT FOR21.DAT.
2) 23371 IF(SOS)WRITE(JOUT,902)
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 87
1) CC CALL IFILE(1,ICT,IFI)
1) 9011 L=I+6
**** File 2) SC3.F4[SCR,LCS], Page 1 line 83
2) 9011 L=I+6
***************
**** File 1) SC3.F4[2,LCS], Page 2 line 131
1) CXX REWIND 1
1) CIRC IF(MX)CALL OFILE(1,ISLAC,'.SCR')
1) CXX IF(MX)CALL FORNAM(ISLAC,'SCR')
1) C NOW USES EXTENSION .SCR WHEN WRITING ON DSK (DEV. 1 ONLY!)
**** File 2) SC3.F4[SCR,LCS], Page 1 line 126
2) REWIND 1
2) CC IF(MX)CALL OFILE(1,ISLAC)
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 2,1
2) IF(MX)CALL FORNAM(ISLAC,'SCR')
2) C NOW USES EXTENSION .SCR WHEN WRITING ON DSK (DEV. 1 ONLY!)
***************
**** File 1) SC3.F4[2,LCS], Page 3 line 256
1) IF(KB.EQ.0)GO TO 9926
**** File 2) SC3.F4[SCR,LCS], Page 2 line 256
2) C 7/75 NOW WRITES 'RCDFLG=-1;' BEFORE! ANY INSERTS AND 'PLAY'.
2) IF(KB.EQ.0)GO TO 9926
***************
**** File 1) SC3.F4[2,LCS], Page 3 line 259
1) DO 9826 LK=ML,NL
1) K=LK
1) BW=OTH(K-NINS,1)
1) CIRC IF(BW.NE.-99)GO TO 9826
1) CIRC K=LK-NINS
1) CIRC GO TO 5741
1) CIRCC 'INSERT -99;' COMES BEFORE 'PLAY;'
1) CIRC9726 BW=19999.
1) CIRC K=LK+NINS
1) 9826 BG(K)=BW
**** File 2) SC3.F4[SCR,LCS], Page 2 line 260
2) DO 9826 K=ML,NL
2) BW=OTH(K-NINS,1)
2) IF(BW.NE.-99)GO TO 9826
2) K=K-NINS
2) GO TO 5741
2) C 'INSERT -99;' COMES BEFORE 'PLAY;'
2) 9726 BW=19999.
2) K=K+NINS
2) 9826 BG(K)=BW
***************
**** File 1) SC3.F4[2,LCS], Page 3 line 280
1) CC IF(MX)WRITE(23,1023)ISLAC,IXIN,PLAY
1) BW=0
**** File 2) SC3.F4[SCR,LCS], Page 2 line 280
2) BW=0
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 2
1) 1108 M=0
1) JC=0
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
1) CCHD=0
1) C NWZZ IS SET AT 3111 IN SORTR. CCHD IS FOR CHORD FEATURE.
1) IF(NWZ)GO TO 1740
1) DO 740 K=1,NWZZ
1) X=BNW(K)
1) IF(X-.0001.GT.BT)GO TO 2740
**** File 2) SC3.F4[SCR,LCS], Page 3 line 2
2) 1108 M=0
2) JC=0
2) IF(NWZ)GO TO 1740
2) C NWZZ IS SET AT 3111 IN SORTR.
2) DO 740 K=1,NWZZ
2) X=BNW(K)
2) IF(X-.0001.GT.BT)GO TO 2740
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 13
1) NW=K
1) GO TO 600
1) 2740 IF(X.LT.1000.)GO TO 740
1) IF(X-J*10000.NE.CNT(J)+1.)GO TO 740
1) X=BT+PR
1) NW=K
1) BX=CNT(J)+1.
1) IT(J)=-3
1) GO TO 600
1) 740 CONTINUE
1) IT(J)=0
1) 1740 IF(J.LE.NINS)GO TO 31
1) 7021 K=J-NINS
1) IF(JC.GT.0)K=JC
1) 5740 IF(PP1.LT.OP1)GO TO 1752
**** File 2) SC3.F4[SCR,LCS], Page 3 line 12
2) NW=K
2) GO TO 600
2) 2740 IF(X.LT.1000.)GO TO 740
2) IF(X-J*10000.NE.CNT(J)+1.)GO TO 740
2) X=BT+PR
2) NW=K
2) BX=CNT(J)+1.
2) IT(J)=-3
2) GO TO 600
2) 740 CONTINUE
2) IT(J)=0
2) 1740 IF(J.LE.NINS)GO TO 31
2) 7021 K=J-NINS
2) IF(JC.GT.0)K=JC
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
2) 5740 IF(PP1.LT.OP1)GO TO 1752
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 30
1) CC IF(MX)WRITE(23,752)(OTH(K,L),L=2,16)
1) C IF TF .NE.1, ALL INSERT TIMES MUST BE RESET
**** File 2) SC3.F4[SCR,LCS], Page 3 line 29
2) C IF TF .NE.1, ALL INSERT TIMES MUST BE RESET
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 38
1) CIRC IF(BW.EQ.-99)GO TO 9726
1) IF(JC.GT.0)GO TO 21
**** File 2) SC3.F4[SCR,LCS], Page 3 line 36
2) IF(BW.EQ.-99)GO TO 9726
2) IF(JC.GT.0)GO TO 21
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 122
1) KIJ2=VIJ2
1) KN=NL/(-11)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 120
2) KN=NL/(-11)
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 126
1) 1100 IF(KIJ2.EQ.1)GO TO 1200
1) ML=3
**** File 2) SC3.F4[SCR,LCS], Page 3 line 123
2) 1100 IF(VIJ2.EQ.1.)GO TO 1200
2) ML=3
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 142
1) IF(RA.EQ.-10000.)GO TO 5174
1) CIRC IF(RA.EQ.10000.)GO TO 5174
1) C FOR "FINE" IN RLIST
**** File 2) SC3.F4[SCR,LCS], Page 3 line 139
2) IF(RA.EQ.10000.)GO TO 5174
2) C FOR "FINE" IN RLIST
***************
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
**** File 1) SC3.F4[2,LCS], Page 4 line 154
1) CNEW601 IF(ISUB.EQ.-2)GO TO 2601
1) 601 X=P2
1) C '.5' MAKES ALL SUBR PARAMS PRINTOUT.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 150
2) 601 IF(ISUB.EQ.-2)GO TO 2601
2) X=P2
2) C '.5' MAKES ALL SUBR PARAMS PRINTOUT.
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 169
1) CNEW2601 CALL NMCHG
1) CNEW GO TO 21552
1) 6100 IF(NL.EQ.-19)GO TO 6101
**** File 2) SC3.F4[SCR,LCS], Page 3 line 165
2) 2601 CALL NMCHG
2) GO TO 21552
2) 6100 IF(NL.EQ.-19)GO TO 6101
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 182
1) 62 KL=NCNT(J,L)+1
1) IF(KL.GT.KIJ2)KL=1
1) IF(NL.EQ.-46)GO TO 677
**** File 2) SC3.F4[SCR,LCS], Page 3 line 178
2) 62 KL=NCNT(J,L)+1
2) IF(KL.GT.VIJ2)KL=1
2) IF(NL.EQ.-46)GO TO 677
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 189
1) IF(KL.GT.KIJ2)KL=1
1) NL=NL+45
**** File 2) SC3.F4[SCR,LCS], Page 3 line 185
2) IF(KL.GT.VIJ2)KL=1
2) NL=NL+45
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 200
1) IF(PAR.EQ.-10000.)GO TO 5174
1) CIRC IF(PAR.EQ.10000.)GO TO 5174
1) PM=2.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 196
2) IF(PAR.EQ.10000.)GO TO 5174
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
2) PM=2.
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 205
1) IF(NL.NE.-33)GO TO 777
1) C NEXT FOR CHORD FEATURE
1) PAR=-PAR
1) CCHD=ABS(V(IJ+KL+2))
1) KL=KL+1
1) IF(KL.GT.KIJ2)KL=1
1) NCNT(J,L)=KL
1) JCHD=IJ
1) LLCHD=L
1) GO TO 877
1) 777 PM=3.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 200
2) 777 PM=3.
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 255
1) NM=LN+KIJ2-1
1) ML=1
1) GO TO 1900
1) 4155 K=-(PAR+9999.0)*100.+.1
1) CIRC4155 K=(PAR-9999.0)*100.+.1
1) P(L)=P(K)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 240
2) NM=LN+VIJ2-1
2) ML=1
2) GO TO 1900
2) 4155 K=(PAR-9999.0)*100.+.1
2) P(L)=P(K)
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 266
1) C -9999.nn REPEATS ANOTHER PARAM.(-9999.21 REPEATS P21)
1) C 7/74 **** NOTE PROBLEMS OF P2 WITH SUBR, TEMPO, TF AND RAND. TF.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 250
2) C 9999.nn REPEATS ANOTHER PARAM.(9999.21 REPEATS P21)
2) C 7/74 **** NOTE PROBLEMS OF P2 WITH SUBR, TEMPO, TF AND RAND. TF.
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 278
1) CXX IF(NL.NE.-89)GO TO 680
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
1) C NEXT FOR INST NAME CHANGES LCDH SAVES FOR CHORD FEATURE
1) CXX IF(J.NE.IFIX(V(IJ-2))/10000)GO TO 2155
1) C ABOVE CHECKS FOR AGREEMENT OF INST NUM. AND POINTER
1) C 'DUPL' AND 'ALL' IGNORE 'NAMES'
1) CXX LCHD=L
1) CXX KCHD=KIJ2
1) CXX KL=KL+1
1) CXX IF(KL.GE.KIJ2)KL=0
1) CXX NCNT(J,L)=KL
1) CXX INST(J)=IV(IJ+2)+KL*IV(IJ+3)
1) CXX IF(CCHD.GE.0)GO TO 2155
1) CXX CCHD=0
1) CXX KL=NCNT(J,LLCHD)+1
1) CXX X=V(JCHD+KL)
1) CXX IF(X.GE.0)GO TO 9203
1) CXX NCNT(J,LLCHD)=KL
1) CXX CCHD=ABS(V(JCHD+KL+1))
1) CXX GO TO 9203
1) 680 IF(KL.EQ.0)GO TO 774
1) IF(KL.NE.10000)GO TO 773
1) 774 KL=KIJ2
1) 773 PM=KL+1
**** File 2) SC3.F4[SCR,LCS], Page 3 line 262
2) IF(KL.EQ.0)GO TO 774
2) IF(KL.NE.10000)GO TO 773
2) 774 KL=VIJ2
2) 773 PM=KL+1
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 303
1) IF(V(KL).EQ.-10000.)DUR(J)=BT
1) CIRC IF(V(KL).EQ.10000.)DUR(J)=BT
1) C 'END' OR 'FINE' IN 'LIT' LIST.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 268
2) IF(V(KL).EQ.10000.)DUR(J)=BT
2) C 'END' OR 'FINE' IN 'LIT' LIST.
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 308
1) CNEW IF(NL.EQ.-89)ISUB=-2
1) C -89= 'NAME' FEATURE. CHANGES INST. NAME EACH NOTE, ACCORDING TO LIST.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 272
2) IF(NL.EQ.-89)ISUB=-2
2) C -89= 'NAME' FEATURE. CHANGES INST. NAME EACH NOTE, ACCORDING TO LIST.
***************
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
**** File 1) SC3.F4[2,LCS], Page 4 line 312
1) 1155 IF(PAR.EQ.-10000.)GO TO 5174
1) CIRC1155 IF(PAR.EQ.10000.)GO TO 5174
1) C TYPE 'END' OR 'FINE' AS LAST IN ANY STRING TO SET DURATION.
1) IF(PAR.GE.-9999.)GO TO 5155
1) IF(PAR.LT.-9999.4)GO TO 5155
1) CIRC IF(PAR.LE.9999.)GO TO 5155
1) CIRC IF(PAR.GE.9999.4)GO TO 5155
1) IF(PM.EQ.1.)GO TO 4155
**** File 2) SC3.F4[SCR,LCS], Page 3 line 276
2) 1155 IF(PAR.EQ.10000.)GO TO 5174
2) C TYPE 'END' OR 'FINE' AS LAST IN ANY STRING TO SET DURATION.
2) IF(PAR.LE.9999.)GO TO 5155
2) IF(PAR.GE.9999.4)GO TO 5155
2) IF(PM.EQ.1.)GO TO 4155
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 519
1) 4171 FORMAT(' ******** WARNING: P2 = 0 *********'/)
1) 4170 NL=2
1) IF(VX2.EQ.0)TYPE 4171
1) DO 1121 K=MLX,ML
**** File 2) SC3.F4[SCR,LCS], Page 3 line 480
2) 4170 NL=2
2) DO 1121 K=MLX,ML
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 562
1) M=-1
1) L=1
1) C NEXT FOR AUTOMATIC NAME CHANGES WHEN OVERLAP OCCURS.
1) C USES ARRAYS NA (EQUIV TO AA), LETRS(NUM. OF LETTERS IN NAME.
1) 2221 IF(NA(L).NE.J)GO TO 2321
1) C CHECK TO SEE IF THIS INST NUM IS IN LIST
1) M=M+1
1) C M IS NAME CHANGE FACTOR
1) IF(AA(L+1).GT.VX1)GO TO 2321
1) 2421 AA(L+1)=VX1+VX2
1) IF(M.LE.0)GO TO 1921
1) LK=LK+M*2**(50-LETRS(J)*7)
1) CC LK=LK+M*2**(1+(7-LETRS(J))*7)
1) C CHANGES LAST LETTER OF INST NAME(LETRS(N)=NUM. OF LETTERS +2)
1) IF(M.GT.JNAM(J))JNAM(J)=M
1) C KEEP TRACK OF HOW COPIES OF EACH INST. ARE NEEDED
1) GO TO 1921
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
1) 2321 L=L+2
1) IF(L.LE.ITOT)GO TO 2221
1) C ITOT IS NUM. OF THINGS IN LIST
1) M=M+1
1) NA(ITOT)=J
1) C PUT INST NUM INTO LIST
1) L=ITOT
1) ITOT=ITOT+2
1) GO TO 2421
1) 1921 L=KL-NL-1
1) IF(MX)WRITE(1,IFM)LK,(VX(K),K=1,L)
1) CC IF(MX)WRITE(23,IFM)LK,(VX(K),K=1,L)
1) IF(.NOT.MZ)GO TO 30210
**** File 2) SC3.F4[SCR,LCS], Page 3 line 521
2) L=KL-NL-1
2) IF(MX)WRITE(1,IFM)LK,(VX(K),K=1,L)
2) IF(.NOT.MZ)GO TO 30210
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 604
1) CC IF(MX)WRITE(23,3616)INST(J),ICT
1) 30211 IF(MZ)WRITE(JOUT,8902),J,INST(J),ICT,BT
**** File 2) SC3.F4[SCR,LCS], Page 3 line 535
2) 30211 IF(MZ)WRITE(JOUT,8902),J,INST(J),ICT,BT
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 627
1) 21 IF(CCHD.EQ.0)GO TO 122
1) P3=CCHD
1) L=LCHD
1) NL=-89
1) CCHD=-CCHD
1) GO TO 68
1) 122 PR=ABS(PR)
1) BG(J)=BT+PR
1) IF(ICT.EQ.DUR(J)-10000.)GO TO 5174
1) IF(BG(J).LT.DUR(J))GO TO 500
1) 5174 BG(J)=19999.
1) DO 3174 K=1,NINS
1) C INSERTS CANT FOLLOW LAST REGULAR NOTE.
1) C (ADD REST IF INSERT AT END IS NEEDED.)
1) 3174 IF(BG(K).LT.19999.)GO TO 500
1) GO TO 175
1) C CHOOSES INST WITH NEXT BEGIN TIME.
1) 500 J=1
1) BW=BT
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
1) NL=NINS+KB
1) DO 22 K=2,NL
1) 22 IF(BG(J).GT.BG(K))J=K
**** File 2) SC3.F4[SCR,LCS], Page 3 line 557
2) 21 PR=ABS(PR)
2) BG(J)=BT+PR
2) IF(ICT.EQ.DUR(J)-10000.)GO TO 5174
2) IF(BG(J).LT.DUR(J))GO TO 500
2) 5174 BG(J)=19999.
2) DO 3174 K=1,NINS
2) C INSERTS CANT FOLLOW LAST REGULAR NOTE.
2) C (ADD REST IF INSERT AT END IS NEEDED.)
2) 3174 IF(BG(K).LT.19999.)GO TO 500
2) GO TO 175
2) C CHOOSES INST WITH NEXT BEGIN TIME.
2) 500 J=1
2) BW=BT
2) NL=NINS+KB
2) DO 22 K=2,NL
2) 22 IF(BG(J).GT.BG(K))J=K
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 678
1) END FILE 1
1) CC WRITE(23,1109),ISLAC
1) CC END FILE 23
1) TYPE 60003
1) 60003 FORMAT(/' ***** DATA HAS BEEN WRITTEN ON DISK *****'/)
1) 603 FORMAT(' TOTAL DURS: ',$)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 602
2) END FILE 1
2) TYPE 60003
2) 60003 FORMAT(' ***** DATA HAS BEEN WRITTEN ON DISK *****'/)
2) 603 FORMAT(' TOTAL DURS: ',$)
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 697
1) 176 FORMAT(' *******',I3,' COPIES NEEDED OF INSTRUMENT ',A5)
1) DO 1176 K=1,NINS
1) IF(JNAM(K).EQ.0)GO TO 1176
1) IF(MZ)GO TO 2176
1) TYPE 176,JNAM(K),INST(K)
1) GO TO 1176
1) 2176 WRITE(JOUT,176)JNAM(K),INST(K)
1) 1176 CONTINUE
1) IF(JOUT.NE.22)GO TO 3175
1) SC3.F4[2,LCS] and 2) SC3.F4[SCR,LCS] 9-22-77 11:06 pages 4,3
**** File 2) SC3.F4[SCR,LCS], Page 3 line 617
2) IF(JOUT.NE.22)GO TO 3175
***************
**** File 1) SC3.F4[2,LCS], Page 4 line 714
1) CC CALL OFILE(22,K,'.DAT')
1) CC WRITE (22,7175)
1) END FILE 22
1) 3175 TYPE 1023,ISLAC,IXIN
1) CALL EXIT
1) END
**** File 2) SC3.F4[SCR,LCS], Page 3 line 625
2) END FILE 22
2) 3175 TYPE 1023,ISLAC,IXIN
2) CALL EXIT
2) END
***************